
let rec make_range m n =
  if m > n then [] else m :: make_range (m + 1) n

